Calculatrices Casio Graphiques : Jeux, programmes, cours, pompes, astuces et programmation sur calculatrice graphique Casio et ClassPad 300 : programmes casio et jeux casio...

ViewWindow 1,127,0,63,1,0
Cls
Green F-Line 2,2,125,2
Green F-Line 125,2,125,61
Green F-Line 125,61,2,61
Green F-Line 2,61,2,2
GetkeyGoto
Orange F-Line 23,12,15,30
Orange F-Line 15,30,26,31
Orange F-Line 29,22,36,23
Orange F-Line 36,23,35,32
Orange F-Line 35,32,29,30
Orange F-Line 29,30,28,27
Orange F-Line 28,27,35,26
GetkeyGoto
Orange F-Line 41,14,39,32
Orange F-Line 40,31,46,30
Orange F-Line 46,30,46,26
Orange F-Line 46,26,41,24
Orange F-Line 48,24,51,31
Orange F-Line 54,23,48,40
GetkeyGoto
Text 18,62,8
Text 22,62,8
Text 26,62,8
Text 18,65,""
Text 21,67,""
Text 23,65,""
PlotOn 68,23
Text 26,67,""
Text 28,69,""
PlotOn 68,28
Text 20,75,8
Text 24,75,8
Text 18,78,""
Text 28,78,""
GetkeyGoto
Text 20,81,8
Text 24,81,8
Text 20,87,8
Text 24,87,8
Text 18,90,""
Text 18,93,""
Text 28,90,""
Text 28,93,""
Text 18,100,8
Text 22,100,8
Text 26,100,8
Text 18,108,""
GetkeyGoto
Text 21,105,""
Text 23,103,""
PlotOn 106,23
Text 25,105,""
Text 28,108,""
Green F-Line 113,18,115,18
Green PlotOn 114,19
Green F-Line 117,18,119,18
Green PlotOn 117,19
Green PlotOn 119,19
Do
Green Text 54,30," par Nowix "
For 1A To 200
GetkeyBreak
Next
Green Text 54,30,"www.nowix.fr.st"
For 1A To 200
GetkeyBreak
Next
Getkey
LpWhile Ans=0
Lbl
Cls
ClrText
Green " "
Orange " "
" "
" "
" "
" "
Orange " "
Locate 7,1,"LABY-ROCK"
Locate 2,2,"-------------------"
Locate 8,3,"Jouer"
Locate 8,4,"Editeur"
Locate 8,5,"Code"
Locate 8,6,"Quitter"
Locate 2,7,"-------------------"
3A
1N
Do
Locate 7,A,""
Do
Getkey
LpWhile Ans=0
Locate 7,A," "
Ans=28Dsz A
Ans=37Isz A
A=26A
A=73A
LpWhile Ans78 And Ans31
If A=6
Then Cls
ClrText
"Presse [MENU]"
Stop
IfEnd
If A=4
Then Goto 5
IfEnd
If A=5
Then ClrText
Orange "Code "?C
C=7326542N
C=8356413N
C=5310674N
C=3579015N
C=2650936N
N=1Orange "NON VALIDE "
N=1Goto
Green "VALIDE "
IfEnd
ClrText
Green " "
Orange " "
Locate 8,1,"Jouer ?"
Locate 2,2,"-------------------"
Locate 6,4,"Jeu normal"
Locate 6,5,"Niveau edite"
4A
Do
Locate 5,A,""
Do
Getkey
LpWhile Ans=0
Ans=47Goto
Locate 5,A," "
Ans=28 Or Ans=37Isz A
A=64A
Ans=47Goto
LpWhile Ans31 And Ans78
If A=5
Then Mat MMat N
0N
R StartF Start
R EndF End
IfEnd
Lbl R
A=4Goto 7
Lbl 8
ClrText
For 21A To 1 Step -1.5
Locate A,4,"Niveau "
Next
For 1A To 6
Locate A,4," Niveau"
Next
For 1A To 10
Locate 15,4,N
Locate 15,4," "
Locate 15,4,N
Next
ClrText
Locate 1,1,"#####################"
For 2A To 6
For 1B To 21
Mat N[A,B]C
C=1Locate B,A,"O"
C=2Locate B,A,"x"
C=3Locate B,A,"#"
Next
Next
Locate 1,7,"#####################"
Lbl 0
F StartA
F EndB
Do
Locate B,A,""
B=21Goto G
Do
Getkey
LpWhile =0
=47Goto
Locate B,A," "
If =28
Then Mat N[A-1,B]C
C=0Dsz A
C=2Goto P
If C=1 And A>3
Then AE
If Mat N[A-2,B]=0
Then Locate B,A-1,""
Locate B,A-2,"O"
0Mat N[A-1,B]
1Mat N[A-2,B]
A-1E
IfEnd
If Mat N[A-2,B]=2
Then Locate B,A-1,""
Locate B,A-2," "
0Mat N[A-1,B]
0Mat N[A-2,B]
A-1E
IfEnd
EA
IfEnd
IfEnd
If =37
Then Mat N[A+1,B]C
C=0Isz A
C=2Goto P
If C=1 And A<5
Then AE
If Mat N[A+2,B]=0
Then Locate B,A+1,""
Locate B,A+2,"O"
0Mat N[A+1,B]
1Mat N[A+2,B]
A+1E
IfEnd
If Mat N[A+2,B]=2
Then Locate B,A+1,""
Locate B,A+2," "
0Mat N[A+1,B]
0Mat N[A+2,B]
A+1E
IfEnd
EA
IfEnd
IfEnd
If =38
Then Mat N[A,B-1]C
C=0Dsz B
C=2Goto P
If C=1 And B>3
Then BE
If Mat N[A,B-2]=0
Then Locate B-1,A,""
Locate B-2,A,"O"
0Mat N[A,B-1]
1Mat N[A,B-2]
B-1E
IfEnd
If Mat N[A,B-2]=2
Then Locate B-1,A,""
Locate B-2,A," "
0Mat N[A,B-1]
0Mat N[A,B-2]
B-1E
IfEnd
EB
IfEnd
IfEnd
If =27
Then Mat N[A,B+1]C
C=0Isz B
C=2Goto P
If C=1 And B<20
Then BE
If Mat N[A,B+2]=0
Then Locate B+1,A,""
Locate B+2,A,"O"
0Mat N[A,B+1]
1Mat N[A,B+2]
B+1E
IfEnd
If Mat N[A,B+2]=2
Then Locate B+1,A,""
Locate B+2,A," "
0Mat N[A,B+1]
0Mat N[A,B+2]
B+1E
IfEnd
EB
IfEnd
IfEnd
LpWhile 0=0
Lbl P
=28Dsz A
=37Isz A
=38Dsz B
=27Isz B
For 1C To 10
Locate B,A,"+"
Locate B,A,"x"
Next
ClrText
For 1A To 10
Locate 3,4,"Tu es tombe dans"
Locate 3,5,"un trou..."
Next
Goto
Lbl G
ClrText
" "
" "
" "
" "
" "
Orange " "
Locate 8,3,"Gagne !"
N0Locate 6,6,"Code"
N=1732654
N=2835641
N=3531067
N=4357901
N=5265093
For 1A To 10
N0Locate 11,6,Ans
Next
Do
Getkey
LpWhile Ans=0
Isz N
N=7Goto 6
4A
Goto R
Lbl 5
ClrText
Cls
Text 57,2,"OUI"
Text 57,112,"NON"
Locate 4,4,"Reset Editeur ?"
Do
LpWhile Getkey79 And Getkey29
Getkey=79Goto 4
Lbl 1
Cls
ClrText
For 1A To 21
3Mat M[1,A]
3Mat M[7,A]
Next
Locate 1,1,"#####################"
For 2A To 6
For 1B To 21
3Mat M[A,1]
Mat M[A,B]C
C=1Locate B,A,"O"
C=2Locate B,A,"x"
C=3Locate B,A,"#"
Next
Next
Locate 1,7,"#####################"
6A
2B
1C
Lbl 2
Do
C=Locate B,A,""
C=0Locate B,A,"-"
C=1Locate B,A,"O"
C=2Locate B,A,"x"
C=3Locate B,A,"#"
Do
GetkeyG
LpWhile G=0
G=44Goto 4
Mat M[A,B]D
D=0Locate B,A," "
D=1Locate B,A,"O"
D=2Locate B,A,"x"
D=3Locate B,A,"#"
G=78C=Goto 3
G=78CMat M[A,B]
G=28A>2Dsz A
G=37A<6Isz A
G=38B>2Dsz B
G=27B<21Isz B
If G=77
Then C=01
C=12
C=23
C=30
AnsC
IfEnd
LpWhile G47 And G48 And G31
C
Goto 2
Lbl 3
Mat M[A,B]0Goto 2
AR Start
BR End
ClrText
For 1A To 10
Locate 3,4,"Niveau sauvegarde"
Next
Goto
Lbl 4
{7,21}Dim Mat M
Goto 1
Lbl 6
ClrText
Green " "
Orange " "
Locate 1,2,"---------------------"
Locate 3,4,"Vous etes un as !"
Locate 3,6,"Vous avez termine"
Locate 3,7,"le jeu."
1A~B
Do
A+BA
A=1 Or A=7-BB
Locate A,1," FELICITATIONS "
LpWhile Getkey31
ClrText
Orange "Codes :"
For 2A To 6
A=2732654
A=3835641
A=4531067
A=5357901
A=6265093
Locate 5,A,"Niv."
Locate 9,A,A
Locate 12,A,Ans
Next
Cls
Orange Horizontal 56
Green Text 58,3,"par Nowix www.nowix.fr.st"
Locate 1,1,"C"
Do:LpWhile Getkey31
ClrText:Cls
"Presse [MENU]":Stop
Lbl 7
If N=1
Then [[3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3][3,0,0,0,0,3,0,1,0,0,0,0,3,0,0,0,0,1,0,0,3][3,0,0,0,0,3,0,3,3,3,1,3,3,0,0,0,3,1,0,0,3][3,0,0,0,1,1,0,0,3,3,0,0,0,3,0,0,3,0,3,3,3][3,0,0,0,0,3,0,3,3,3,0,0,0,3,1,1,3,0,0,0,0][3,0,0,0,0,3,2,0,0,1,0,0,0,2,0,0,3,0,0,0,0][3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3]]Mat N
3F Start
3F End
IfEnd
If N=2
Then [[3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3][3,0,0,0,3,0,0,3,0,0,0,0,0,0,0,0,0,2,3,2,0][3,0,0,0,0,0,0,3,0,0,2,3,3,3,3,3,3,0,3,0,3][3,3,0,0,3,0,0,3,0,2,0,0,0,0,1,0,3,1,3,0,3][3,0,1,3,0,0,0,3,3,1,3,3,3,3,3,0,1,2,3,1,3][3,0,0,3,0,1,0,0,0,0,2,1,0,0,2,2,3,2,0,0,3][3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3]]Mat N
6F Start
2F End
IfEnd
If N=3
Then [[3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3][3,0,0,3,0,0,0,2,2,3,0,0,3,0,0,3,0,2,3,2,0][3,0,1,2,0,1,0,0,2,2,2,0,3,0,0,2,2,2,3,0,3][3,2,0,3,0,1,0,0,2,3,1,1,3,0,1,3,0,0,3,0,3][3,1,1,3,0,2,3,1,3,3,0,0,2,0,0,3,1,1,0,0,1][3,0,0,3,0,0,0,0,0,3,0,0,3,0,0,3,2,2,0,0,3][3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3]]Mat N
6F Start
2F End
IfEnd
If N=4
Then [[3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3][3,0,3,0,1,0,2,1,2,2,2,2,2,2,2,2,2,2,2,0,2][3,0,2,1,2,0,2,0,1,0,0,0,2,0,0,2,0,2,2,1,2][3,0,1,3,3,0,2,3,3,3,3,3,1,3,3,3,0,1,2,3,3][3,0,1,2,3,0,3,0,1,2,0,3,0,0,0,3,0,0,1,0,3][3,0,1,3,3,0,1,2,3,0,0,1,0,2,2,1,0,1,2,3,3][3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3]]Mat N
2F Start
2F End
IfEnd
If N=5
Then [[3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3][3,1,0,1,0,2,1,0,2,3,0,2,1,0,0,0,0,2,0,0,3][3,0,1,2,1,0,1,2,1,3,0,0,0,1,0,1,1,2,1,2,3][3,3,3,3,2,3,3,3,0,3,3,1,3,3,3,0,3,3,3,1,3][3,0,1,0,1,2,1,0,2,3,0,0,3,0,2,2,2,0,1,2,3][3,2,1,0,2,1,0,2,1,2,2,3,0,0,0,2,1,0,1,2,2]]Mat N
3F Start
2F End
IfEnd
If N=6
Then [[3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3][3,0,1,0,0,0,0,2,0,0,2,1,3,0,1,2,3,2,0,1,2][3,2,1,2,1,1,1,2,3,2,1,0,1,2,3,0,3,2,1,0,3][3,2,1,2,0,0,3,3,2,3,2,3,3,0,1,0,3,3,3,0,3][3,1,2,2,1,0,2,0,1,0,2,3,0,1,3,0,1,0,1,2,3][3,0,2,1,2,3,2,1,0,1,2,1,2,2,0,1,2,1,2,3,3][3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3]]Mat N
6F Start
9F End
IfEnd
Goto 8